home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tp.d64 / trek theme.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  11KB  |  270 lines
  1. 100 REM WRITTEN APRIL 23,1984
  2. 102 REM DARREN BOYD
  3. 104 REM BOX 522
  4. 106 REM NELSON, B.C.
  5. 108 REM V1L 5R3
  6. 110 REM D.B. PRODUCTIONS
  7. 120 POKE53280,11:POKE53281,0:PRINT""
  8. 130 PRINT"[147]"
  9. 140 PRINT""TAB(15)"THEME FROM"
  10. 150 PRINT""TAB(15)"[159]STAR  TREK"
  11. 160 PRINT""TAB(11)"THE MOTION PICTURE"
  12. 170 PRINT""TAB(11)"BY JERRY GOLDSMITH"
  13. 180 FORI=54272TO54296:POKEI,0:NEXTI
  14. 190 FORPA=1TO500:NEXTPA
  15. 200 L1=54272:L2=54279:L3=54286
  16. 210 H1=L1+1:H2=L2+1:H3=L3+1
  17. 220 V1=L1+4:V2=L2+4:V3=L3+4
  18. 230 POKE 54296,15
  19. 240 POKE V1+1,063:POKE V1+2,003
  20. 250 POKE V2+1,063:POKE V2+2,001
  21. 260 POKE V3+1,063:POKE V3+2,001
  22. 270 T=TI
  23. 280 POKEV1,W1:POKEV2,W2:POKEV3,W3
  24. 290 READ S:IF S=0 GOTO 380
  25. 300 S=S/2
  26. 310 READ X1,Y1,X2,Y2,X3,Y3,W1,W2,W3
  27. 320 IF X1 THEN POKE H1,X1:POKE L1,Y1:POKE V1,33
  28. 330 IF X2 THEN POKE H2,X2:POKE L2,Y2:POKE V2,33
  29. 340 IF X3 THEN POKE H3,X3:POKE L3,Y3:POKE V3,33
  30. 350 T=T+S
  31. 360 IF T>TI GOTO 360
  32. 370 GOTO 280
  33. 380 FORPA=1TO500:NEXTPA
  34. 390 FORJ=L1 TO 54296:POKE J,0:NEXT J
  35. 400 GOTO60000
  36. 410 DATA020,016,195,014,024,011,048,33,32,32:REM M 01
  37. 420 DATA020,016,195,014,024,011,048,33,32,32
  38. 430 DATA020,016,195,014,024,011,048,33,32,32
  39. 440 DATA020,016,195,014,024,011,048,33,32,32
  40. 450 DATA020,022,096,000,000,000,000,32,32,32
  41. 460 DATA020,028,049,000,000,000,000,32,32,32
  42. 470 DATA020,025,030,015,210,012,143,33,32,32:REM M 02
  43. 480 DATA020,025,030,015,210,012,143,33,32,32
  44. 490 DATA020,025,030,015,210,012,143,33,32,32
  45. 500 DATA020,025,030,015,210,012,143,33,32,32
  46. 510 DATA020,022,096,000,000,000,000,32,32,32
  47. 520 DATA020,037,162,000,000,000,000,32,32,32
  48. 530 DATA020,033,135,022,096,014,024,33,32,32:REM M 03
  49. 540 DATA020,033,135,022,096,014,024,33,32,32
  50. 550 DATA020,033,135,022,096,014,024,33,32,32
  51. 560 DATA020,033,135,022,096,014,024,33,32,32
  52. 570 DATA020,033,135,022,096,014,024,33,32,32
  53. 580 DATA020,033,135,022,096,014,024,33,32,32
  54. 590 DATA020,033,135,021,031,012,143,32,32,32:REM M 04
  55. 600 DATA020,019,239,000,000,000,000,32,32,32
  56. 610 DATA020,029,223,000,000,000,000,32,32,32
  57. 620 DATA020,033,135,000,000,000,000,32,32,32
  58. 630 DATA020,037,162,000,000,000,000,32,32,32
  59. 640 DATA020,029,223,000,000,000,000,32,32,32
  60. 650 DATA060,033,135,028,049,011,048,32,32,32:REM M 05
  61. 660 DATA060,029,223,025,030,012,143,32,32,32
  62. 670 DATA060,028,049,022,096,014,024,33,32,32:REM M 06
  63. 680 DATA020,028,049,022,096,014,024,32,32,32
  64. 690 DATA020,022,096,022,096,014,024,32,32,32
  65. 700 DATA020,028,049,022,096,014,024,32,32,96
  66. 710 DATA020,025,030,021,031,012,143,33,32,32:REM M 07
  67. 720 DATA020,025,030,000,000,000,000,33,32,32
  68. 730 DATA020,025,030,021,031,012,143,33,32,32
  69. 740 DATA020,025,030,018,209,012,143,33,32,32
  70. 750 DATA020,025,030,018,209,012,143,33,32,32
  71. 760 DATA020,025,030,018,209,012,143,33,32,32
  72. 770 DATA020,025,030,022,096,012,143,33,32,32:REM M 08
  73. 780 DATA020,025,030,022,096,012,143,33,32,32
  74. 790 DATA020,025,030,022,096,012,143,33,32,32
  75. 800 DATA020,025,030,018,209,011,048,33,32,32
  76. 810 DATA020,025,030,018,209,011,048,33,32,32
  77. 820 DATA020,025,030,018,209,011,048,33,32,32
  78. 830 DATA020,016,195,014,024,011,048,33,32,32:REM M 09
  79. 840 DATA020,016,195,014,024,011,048,33,32,32
  80. 850 DATA020,016,195,014,024,011,048,33,32,32
  81. 860 DATA020,016,195,014,024,011,048,33,32,32
  82. 870 DATA020,022,096,000,000,000,000,32,32,32
  83. 880 DATA020,028,049,000,000,000,000,32,32,32
  84. 890 DATA020,025,030,019,239,012,143,33,32,32:REM M 10
  85. 900 DATA020,025,030,019,239,012,143,33,32,32
  86. 910 DATA020,025,030,019,239,012,143,33,32,32
  87. 920 DATA020,025,030,019,239,012,143,33,32,32
  88. 930 DATA020,021,031,000,000,000,000,32,32,32
  89. 940 DATA020,037,162,000,000,000,000,32,32,32
  90. 950 DATA020,033,135,022,096,014,024,33,32,32:REM M 11
  91. 960 DATA020,033,135,022,096,014,024,33,32,32
  92. 970 DATA020,033,135,022,096,014,024,33,32,32
  93. 980 DATA020,033,135,022,096,014,024,33,32,32
  94. 990 DATA020,033,135,022,096,014,024,33,32,32
  95. 1000 DATA020,033,135,022,096,014,024,33,32,32
  96. 1010 DATA020,033,135,022,096,012,143,32,32,32:REM M 12
  97. 1020 DATA020,019,239,000,000,000,000,32,32,32
  98. 1030 DATA020,029,223,000,000,000,000,32,32,32
  99. 1040 DATA020,033,135,000,000,000,000,32,32,32
  100. 1050 DATA020,037,162,000,000,000,000,32,32,32
  101. 1060 DATA020,029,223,000,000,000,000,32,32,32
  102. 1070 DATA060,033,135,028,049,011,048,32,32,32:REM M 13
  103. 1080 DATA060,029,223,025,030,012,143,32,32,32
  104. 1090 DATA080,028,049,022,096,014,024,32,32,32:REM M 14
  105. 1100 DATA020,028,049,022,096,014,024,32,32,32
  106. 1110 DATA020,022,096,022,096,014,024,32,32,32
  107. 1120 DATA020,025,030,021,031,012,143,33,32,32:REM M 15
  108. 1130 DATA020,025,030,000,000,000,000,33,32,32
  109. 1140 DATA020,025,030,021,031,012,143,33,32,32
  110. 1150 DATA020,025,030,021,031,012,143,33,32,32
  111. 1160 DATA020,025,030,021,031,012,143,33,32,32
  112. 1170 DATA020,025,030,021,031,012,143,33,32,32
  113. 1180 DATA020,025,030,021,031,012,143,33,32,32:REM M 16
  114. 1190 DATA020,025,030,021,031,012,143,33,32,32
  115. 1200 DATA020,025,030,021,031,012,143,33,32,32
  116. 1210 DATA020,025,030,021,031,012,143,33,32,32
  117. 1220 DATA020,025,030,000,000,000,000,32,32,32
  118. 1230 DATA020,037,162,000,000,000,000,32,32,32
  119. 1240 DATA020,042,062,035,134,014,024,33,33,32:REM M 17
  120. 1250 DATA020,042,062,035,134,000,000,33,33,32
  121. 1260 DATA020,042,062,035,134,000,000,33,33,32
  122. 1270 DATA020,042,062,035,134,000,000,33,33,32
  123. 1280 DATA020,021,031,000,000,000,000,32,32,32
  124. 1290 DATA020,035,134,028,049,011,218,33,33,32:REM M 18
  125. 1300 DATA020,035,134,028,049,000,000,33,33,32
  126. 1310 DATA020,035,134,028,049,000,000,33,33,32
  127. 1320 DATA020,035,134,028,049,000,000,33,33,32
  128. 1330 DATA020,028,049,000,000,000,000,32,32,32
  129. 1340 DATA020,047,107,000,000,000,000,32,32,32
  130. 1350 DATA020,042,062,035,134,014,024,33,33,32:REM M 19
  131. 1360 DATA060,042,062,035,134,000,000,33,32,32
  132. 1370 DATA020,021,031,000,000,000,000,32,32,32
  133. 1380 DATA020,035,134,028,049,011,218,33,33,32:REM M 20
  134. 1390 DATA020,035,134,028,049,000,000,33,33,32
  135. 1400 DATA020,035,134,028,049,000,000,33,32,32
  136. 1410 DATA060,035,135,028,049,011,218,32,32,32
  137. 1420 DATA060,042,062,035,134,014,024,32,32,32:REM M 21
  138. 1430 DATA060,047,107,035,134,011,218,32,32,32
  139. 1440 DATA060,050,060,042,062,010,143,32,32,32:REM M 22
  140. 1450 DATA060,047,107,037,162,011,218,32,32,32
  141. 1460 DATA020,042,062,035,134,014,024,32,32,32:REM M 23
  142. 1470 DATA020,028,049,000,000,000,000,32,32,32
  143. 1480 DATA020,042,062,000,000,000,000,32,32,32
  144. 1490 DATA060,037,162,031,165,014,024,33,33,33
  145. 1500 DATA100,037,162,031,165,014,024,33,33,33:REM M 24
  146. 1510 DATA010,037,162,031,165,014,024,33,32,32
  147. 1520 DATA010,037,162,031,165,014,024,32,32,32
  148. 1530 DATA020,037,162,029,223,014,239,33,33,32:REM M 25
  149. 1540 DATA060,037,162,029,223,000,000,32,32,32
  150. 1550 DATA020,018,209,000,000,000,000,32,32,32
  151. 1560 DATA020,029,223,000,000,000,000,32,32,32
  152. 1570 DATA020,033,135,025,030,014,239,33,33,32:REM M 26
  153. 1580 DATA060,033,135,025,030,000,000,32,32,32
  154. 1590 DATA020,025,030,000,000,000,000,32,32,32
  155. 1600 DATA020,042,062,000,000,000,000,32,32,32
  156. 1610 DATA020,037,162,029,223,014,239,32,32,32:REM M 27
  157. 1620 DATA020,018,209,000,000,000,000,32,32,32
  158. 1630 DATA020,029,223,000,000,000,000,32,32,32
  159. 1640 DATA060,033,135,025,030,014,239,33,33,33
  160. 1650 DATA060,033,135,025,030,014,239,33,32,32:REM M 28
  161. 1660 DATA060,025,030,025,030,014,239,32,32,32
  162. 1670 DATA060,037,162,029,223,014,239,32,32,32:REM M 29
  163. 1680 DATA060,042,062,033,135,012,143,32,32,32
  164. 1690 DATA060,044,193,035,134,011,048,32,32,32:REM M 30
  165. 1700 DATA060,039,223,033,135,013,078,32,32,32
  166. 1710 DATA020,039,223,029,223,014,239,32,32,32:REM M 31
  167. 1720 DATA020,037,162,000,000,000,000,32,32,32
  168. 1730 DATA020,029,223,000,000,000,000,32,32,32
  169. 1740 DATA060,033,135,025,030,016,195,33,33,33
  170. 1750 DATA020,033,135,025,030,016,195,33,33,32:REM M 32
  171. 1760 DATA040,033,135,025,030,000,000,33,32,32
  172. 1770 DATA060,025,030,025,030,016,195,32,32,32
  173. 1780 DATA020,016,195,014,024,011,048,33,32,32:REM M 33
  174. 1790 DATA020,016,195,014,024,011,048,33,32,32
  175. 1800 DATA020,016,195,014,024,011,048,33,32,32
  176. 1810 DATA020,016,195,014,024,011,048,33,32,32
  177. 1820 DATA020,022,096,000,000,000,000,32,32,32
  178. 1830 DATA020,028,049,000,000,000,000,32,32,32
  179. 1840 DATA020,025,030,015,210,012,143,33,32,32:REM M 34
  180. 1850 DATA020,025,030,015,210,012,143,33,32,32
  181. 1860 DATA020,025,030,015,210,012,143,33,32,32
  182. 1870 DATA020,025,030,015,210,012,143,33,32,32
  183. 1880 DATA020,022,096,000,000,000,000,32,32,32
  184. 1890 DATA020,037,162,000,000,000,000,32,32,32
  185. 1900 DATA020,033,135,022,096,014,024,33,32,32:REM M 35
  186. 1910 DATA020,033,135,022,096,014,024,33,32,32
  187. 1920 DATA020,033,135,022,096,014,024,33,32,32
  188. 1930 DATA020,033,135,022,096,014,024,33,32,32
  189. 1940 DATA020,033,135,022,096,014,024,33,32,32
  190. 1950 DATA020,033,135,022,096,014,024,33,32,32
  191. 1960 DATA020,033,135,021,031,012,143,32,32,32:REM M 36
  192. 1970 DATA020,019,239,000,000,000,000,32,32,32
  193. 1980 DATA020,029,223,000,000,000,000,32,32,32
  194. 1990 DATA020,033,135,000,000,000,000,32,32,32
  195. 2000 DATA020,037,162,000,000,000,000,32,32,32
  196. 2010 DATA020,029,223,000,000,000,000,32,32,32
  197. 2020 DATA060,033,135,028,049,011,048,32,32,32:REM M 37
  198. 2030 DATA060,029,223,025,030,012,143,32,32,32
  199. 2040 DATA060,028,049,022,096,014,024,33,32,32:REM M 38
  200. 2050 DATA020,028,049,022,096,014,024,32,32,32
  201. 2060 DATA020,022,096,022,096,014,024,32,32,32
  202. 2070 DATA020,028,049,022,096,014,024,32,32,96
  203. 2080 DATA020,025,030,000,000,000,000,33,32,32
  204. 2090 DATA020,025,030,021,031,012,143,33,32,32
  205. 2100 DATA020,025,030,018,209,012,143,33,32,32
  206. 2110 DATA020,025,030,018,209,012,143,33,32,32
  207. 2120 DATA020,025,030,018,209,012,143,33,32,32
  208. 2130 DATA020,025,030,022,096,012,143,33,32,32:REM M 40
  209. 2140 DATA020,025,030,022,096,012,143,33,32,32
  210. 2150 DATA020,025,030,022,096,012,143,33,32,32
  211. 2160 DATA020,025,030,018,209,011,048,33,32,32
  212. 2170 DATA020,025,030,018,209,011,048,33,32,32
  213. 2180 DATA020,025,030,018,209,011,048,33,32,32
  214. 2190 DATA020,016,195,014,024,011,048,33,32,32:REM M 41
  215. 2200 DATA020,016,195,014,024,011,048,33,32,32
  216. 2210 DATA020,016,195,014,024,011,048,33,32,32
  217. 2220 DATA020,016,195,014,024,011,048,33,32,32
  218. 2230 DATA020,022,096,000,000,000,000,32,32,32
  219. 2240 DATA020,028,049,000,000,000,000,32,32,32
  220. 2250 DATA020,025,030,019,239,012,143,33,32,32:REM M 42
  221. 2260 DATA020,025,030,019,239,012,143,33,32,32
  222. 2270 DATA020,025,030,019,239,012,143,33,32,32
  223. 2280 DATA020,025,030,019,239,012,143,33,32,32
  224. 2290 DATA020,021,031,000,000,000,000,32,32,32
  225. 2300 DATA020,037,162,000,000,000,000,32,32,32
  226. 2310 DATA020,033,135,022,096,014,024,33,32,32:REM M 43
  227. 2320 DATA020,033,135,022,096,014,024,33,32,32
  228. 2330 DATA020,033,135,022,096,014,024,33,32,32
  229. 2340 DATA020,033,135,022,096,014,024,33,32,32
  230. 2350 DATA020,033,135,022,096,014,024,33,32,32
  231. 2360 DATA020,033,135,022,096,014,024,33,32,32
  232. 2370 DATA020,033,135,022,096,012,143,32,32,32:REM M 44
  233. 2380 DATA020,019,239,000,000,000,000,32,32,32
  234. 2390 DATA020,029,223,000,000,000,000,32,32,32
  235. 2400 DATA020,033,135,000,000,000,000,32,32,32
  236. 2410 DATA020,037,162,000,000,000,000,32,32,32
  237. 2420 DATA020,029,223,000,000,000,000,32,32,32
  238. 2430 DATA060,033,135,028,049,011,048,32,32,32:REM M 45
  239. 2440 DATA060,037,162,028,049,009,104,32,32,32
  240. 2450 DATA060,039,223,033,135,008,097,32,32,32:REM M 46
  241. 2460 DATA060,035,134,029,223,008,225,32,32,32
  242. 2470 DATA080,044,193,035,134,013,078,33,32,32:REM M 47
  243. 2480 DATA020,044,193,035,134,013,078,33,32,32
  244. 2490 DATA020,044,193,035,134,013,078,33,32,32
  245. 2500 DATA040,044,193,035,134,009,247,32,32,32:REM M 48
  246. 2510 DATA040,039,223,000,000,000,000,32,32,32
  247. 2520 DATA040,035,134,000,000,000,000,32,32,32
  248. 2530 DATA020,044,193,033,135,011,048,33,32,32:REM M 49
  249. 2540 DATA020,044,193,000,000,000,000,33,32,32
  250. 2550 DATA020,044,193,033,135,011,048,33,32,32
  251. 2560 DATA020,044,193,033,135,011,048,33,32,32
  252. 2570 DATA020,044,193,033,135,011,048,33,32,32
  253. 2580 DATA020,044,193,033,135,011,048,33,32,32
  254. 2590 DATA060,044,193,033,135,011,048,33,32,32:REM M 50
  255. 2600 DATA020,044,193,022,096,011,048,33,32,32
  256. 2610 DATA020,044,193,022,096,011,048,33,32,32
  257. 2620 DATA020,044,193,022,096,011,048,33,32,32
  258. 2630 DATA020,044,193,022,096,011,048,32,32,32:REM M 51
  259. 2640 DATA000
  260. 60000 PRINT"[147]":POKE53280,254:POKE53281,246:PRINTCHR$(9):PRINTCHR$(142)
  261. 60010 PRINT"            PRODUCED IN 1984"
  262. 60020 PRINT"            D.B. PRODUCTIONS[154]"
  263. 60030 I=55795:J=55796:L=55875:M=55876
  264. 60040 FORK=1TO20
  265. 60050 FORPA=1TO150:NEXT
  266. 60060 POKEI,12:POKEJ,12:POKEL,1:POKEM,1
  267. 60070 I=I-1:J=J+1:L=L-1:M=M+1
  268. 60080 NEXTK
  269. 60090 END
  270.